﻿Imports tiendaRegalos
Public Class IngresarProductos

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.txtNombre.Text = ""
        Me.txtPrecio.Text = ""
        Me.txtStock.Text = ""

       

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim negocio As New ProductoNegocio()

        Try
            Dim modelo = negocio.insertar(Me.txtNombre.Text, Me.txtStock.Text, Me.txtPrecio.Text, Me.txtDisponibilidad.Text)
            MsgBox("USTED SE HA REGISTRADO SUE Productooo!!!")
            'Assert.AreEqual(13, modelo.idUsuario)

        Catch ex As DAOExcepcion
            MsgBox(ex.ToString)
        End Try
    End Sub


End Class